home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2101a.zip / DRAGON.REF < prev    next >
Text File  |  1997-06-26  |  13KB  |  607 lines

  1. ;For the Dragon Tooth Cult and their evil!
  2. ;And for Pap, who is the ultimate evil in real life.  He cuts kids.
  3. @#barman
  4. @do moveback
  5. @if bitcheck `t18 2 0 then do
  6.   @begin
  7.   @do saybar
  8. `0One Eye:  `2Get lost, punk...
  9.   @closescript
  10.   @end
  11.  
  12. @if `i73 > 0 then do
  13.   @begin
  14.   @do saybar
  15. `0One Eye:  `2Haw!  Long time no see....  you did yourself proud.
  16.   @closescript
  17.   @end
  18.  
  19. @show
  20. `r0`c  `r1  `%Talking to One Eye  `r0
  21.  
  22.   `0"Get lost, punk..." `2he grunts.
  23.  
  24. `k  `$"And anger my master, Phineaus?" `2you cooly reply.
  25.  
  26. `k  `2His voice quickly changes tone.  `0"So you are he.  Alright, come
  27.   with me."
  28.  
  29. `k`c  `r1  The Flying Machine  `r0
  30.  
  31.   `2One Eye takes you to the roof - where a strange contraption is sitting
  32.   on a landing pad of sorts.
  33.  
  34. `k  `0"It's me special invention!  With this I can drop you on the cliffs
  35.   near the Koshi village, and you can sneak in!"
  36.  
  37. `k  `%THE JOURNEY IS THRILLING!  `2And you only get airsick once...
  38.  
  39. `2  At the right time you jump overboard... One Eye waves as he sails
  40.   away...
  41.  
  42. `k
  43. @do map is 195
  44. @do x is 58
  45. @do y is 14
  46. @loadmap &map
  47. @drawmap
  48. @update
  49.  
  50. @#old
  51. @do moveback
  52. @if `p07 > -99 then do
  53.   @begin
  54.   @do saybar
  55. Phineaus: `2Hey, you don't look that evil!  Get out!!  GUARDS!!!!
  56.   @closescript
  57.   @end
  58.  
  59. @if bitcheck `t18 7 1 then do
  60.   @begin
  61.     @do saybar
  62. `0Phineaus: `2You RULE!
  63.     @closescript
  64.  
  65.   @end
  66.  
  67. @if bitcheck `t18 2 1 then do
  68.   @begin
  69.   ;does he have the wand?
  70.   @if `i73 < 1 then do
  71.     @begin
  72.     @do saybar
  73. Phineaus: `2Bring me the smackrod!
  74.     @closescript
  75.     @end
  76.     @do saybar
  77.  
  78. @show
  79. `r0`c  `r1  `%TALKING WITH EVIL INCARNATE `r0
  80.  
  81. `4  `$"I have the Smackrod as I swore I would master."
  82.  
  83. `k  `%"Exellent my s&boy...exellent.  Without this, the Koshi shall never
  84.   defeat us!!!" `4the old man cackles in delight.
  85.  
  86. `k  `%"Hell, why don't you keep the damn rod, after all.. you will lead my
  87.   minions into battle from now on!  I'm making you the general of all my
  88.   armies!"
  89.  
  90. `k  `%YOU GET 500 QUEST POINTS AND 10,000 EXPERIENCE!
  91.  
  92.   `$You have won this game as evil.  But this doesn't have to be the end..
  93.   using your new powers why not run throughout the world creating havoc and
  94.   disaster?
  95.  
  96. `k
  97. @bitset `t18 7 1
  98. @do `p18 + 500
  99. @do `p01 + 10000
  100. @do `p02 is `p03
  101. @do addlog
  102.   `r1  `r0 `0`n`% has stolen the Smackrod and become a hero! `r1  `r0
  103. @writefile lognow.txt
  104.                                  `2-`0=`2-`%=`2-`0=`2-
  105.     @drawmap
  106.     @update
  107.     @closescript
  108.   @end
  109.  
  110. @show
  111. `r0`c  `r1  `%TALKING WITH EVIL INCARNATE `r0
  112.  
  113. `4  A man with a scarred face and more than a few teeth missing grins at
  114.   you eerily.
  115.  
  116. @if bitcheck `t18 1 0 then do
  117.   @begin
  118.   @show
  119.   `%"Do you know me, s&boy?" `4the shady character asks you.
  120.  
  121. `k  `$"Um.. no sir.. should I?" `4you stammer.
  122.  
  123. `k  `%"Of course you should!" `4he spits, apparently insulted to some
  124.   degree, `%"I run this whole organization!"
  125.  
  126. `k  `4The man continues to educate you in the way of the Cult.. you find
  127.   out his name is Phineaus Crane.
  128.  
  129. `k  `4Before dismissing you, he whispers something in your ear.  `%"You
  130.   are the one I've chosen."
  131.  
  132. `k
  133.   @bitset `t18 1 1
  134.   @drawmap
  135.   @update
  136.   @closescript
  137.   @end
  138.  
  139. @if `p18 < 100 then do
  140.   @begin
  141.   @show
  142.   `4Phineaus stares at you awhile.  `%"You are not ready for the mission I
  143.   am preparing you for.  You need to have 100 quests completed before you
  144.   will be qualified sufficiently."
  145.  
  146. `k
  147.   @drawmap
  148.   @update
  149.   @closescript
  150.   @end
  151.  
  152. @show
  153.   `%"Are you ready for your greatest quest ever, my son?"
  154.  
  155. @do `v01 is 1
  156. @do write
  157. `x`x
  158. @choice
  159. Yes, why yes, yes indeed!
  160. Not exactly - maybe tomorrow...
  161. @if response is 1 then do
  162.   @begin
  163.   @show
  164. `\`\  `%"Good.  Very good..  It is true we have stolen the Koshi's Gryphon
  165.   moon, but there is one more thing we need to take from them.  It is called
  166.   the Smackrod.  This strange and magical item they have created has the
  167.   power to teleport short distances... very useful."
  168.  
  169. `k  `$"Ok.. I'll steal the Smackrod for you... But where is it?"
  170.  
  171. `k  `%"The Koshi live high in the mountains west of Arrisville.  You could
  172.   try to sneak in, or talk to a man I have stationed in Bonetown.. a man
  173.   you shouldn't have too much trouble finding, we call him One Eye.  He
  174.   has something that could help."
  175.  
  176. `k  `$"I will bring it back, my master." `4you vow.
  177.  
  178. `k
  179.   @bitset `t18 2 1
  180.   @drawmap
  181.   @update
  182.   @closescript
  183.   @end
  184.  
  185.  
  186. @if responce is 2 then do
  187.   @begin
  188.   @show
  189. `\`\  `%"Come back when you are ready."
  190. `\`k
  191.   @end
  192.  
  193. @drawmap
  194. @update
  195.  
  196. @#enter
  197.   @do map is 708
  198.   @do x is 10
  199.   @do y is 9
  200.   @loadmap &map
  201.   @drawmap
  202.   @update
  203.  
  204.  
  205. @if bitcheck `t17 5 1 then do
  206.   @begin
  207.   @if `p07 > 50 then do
  208.    @begin
  209.    @do saybar
  210. You sneak into the inner sanctum while no one is looking...
  211.   @closescript
  212.  
  213.    @end
  214.   @end
  215.  
  216.    @do saybar
  217. Ahh... the pride and joy of the Dragon Tooth Cult!
  218.  
  219.  
  220. @#gryphon
  221. @do moveback
  222.  
  223.  
  224.  
  225. @if `p07 < 50 then do
  226.   @begin
  227.   @do saybar
  228. Ha ha!  You must fight to keep this treasure safe.
  229.   @closescript
  230.   @end
  231.  
  232. @if bitcheck `t17 7 1 then do
  233.   @begin
  234.   @do saybar
  235. `0Ahh, the memories...
  236.   @closescript
  237.   @end
  238.  
  239. @if bitcheck `t17 6 1 then do
  240.   @begin
  241.   @if `i72 < 1 then do
  242.     @begin
  243.     @do `i72 is 1
  244.   @do saybar
  245. `0You grab the `%Gryphon Moon`0!  (again...)
  246.   @closescript
  247.  
  248.     @end
  249.  
  250.   @do saybar
  251. `0You better take the `%Gryphon Moon`0 back to the Koshi, quick!
  252.   @closescript
  253.   @end
  254.  
  255. @if bitcheck `t17 5 1 then do
  256.   @begin
  257.  
  258. @bitset `t17 6 1
  259. @do saybar
  260. `0You find the `%Gryphon Moon`2!
  261.   @do `i72 is 1
  262. @closescript
  263.   @end
  264. @#STORE
  265. ;The weapons store in the castle
  266. @if bitcheck `t18 0 1 then do
  267.   @begin
  268.   @do moveback
  269.   @offmap
  270.   @busy
  271.   @show
  272. `r0`c                         `r1  Dragon Tooth Weapons  `r0
  273.  
  274.  
  275.  
  276.  
  277.   @buymanager
  278. 68
  279. 69
  280. 70
  281. 71
  282. 55
  283. @drawmap
  284. @update
  285.  @closescript
  286. @end
  287. ;If not a member
  288. @do saybar
  289. `2Looks like the Dragon Tooth's weapons...
  290. @do moveback
  291.  
  292. @#random
  293. @if `i67 > 0 then do
  294.   @begin
  295.   @do `s01 is s&armour
  296.   @if `s01 not Disguise then do
  297.     @begin
  298.     @do map is 59
  299.     @do x is 36
  300.     @do y is 8
  301.     @do `i72 is 0
  302.     @do `p02 / 3
  303.     @loadmap &map
  304.     @show
  305. `r0`c  `r1  `%A problem  `r0
  306.  
  307.   `0"Hey you! Come here for a second!" `2a guard yells.
  308.  
  309. `k  `$"Who me?"
  310.  
  311.   `0"Yeah!  Who are you?  What are you doing here?"
  312.  
  313. @do write
  314. `x`x
  315. @do `v01 is 1
  316. @choice
  317. I work on boats.
  318. I clean stables.
  319. I just forgot to put on my disguise!
  320. @show
  321. `\`\  `0"Get him!!!!" `2yells the guard.
  322.  
  323.   `4They beat you unconscious.
  324.  
  325. `k
  326.     @drawmap
  327.     @update
  328.     @do saybar
  329. Where are you?  Your head really hurts.
  330.     @closescript
  331.     @end
  332.  
  333.   @do saybar
  334.   A guard waves you through, he is fooled!
  335.   @end
  336.  
  337. @#GUARD1
  338. ;Guard on the beach
  339. @do saybar
  340. `0"Welcome to our Island."
  341. @do moveback
  342.  
  343. @#CASTLE
  344. ;The evil castle for the Dragon Tooth
  345. @if `i67 > 0 then do
  346.   @begin
  347.   @do map is 707
  348.   @do x is 10
  349.   @do y is 11
  350.   @loadmap &map
  351.   @drawmap
  352.   @update
  353.   @do saybar
  354. You sneak into the Castle!  Better be careful...
  355.   @closescript
  356.   @end
  357. @do moveback
  358. @offmap
  359. @do `v01 is 1
  360. @show
  361. `r0`c  `r1  Dragon Tooth Castle  `r0
  362.  
  363.   `2The castle is huge!  Various shields and crests hang on its sides, as
  364.   well as bodies!  The ominous gates send a chill down your spine as you
  365.   enter.  The gatekeeper on the inside eyes you.
  366.  
  367.   `0"You, what is your business here?"  `2he asks.
  368.                         
  369. @DO WRITE
  370. `x`x
  371. @CHOICE
  372. -`t18 0 Join them
  373. +`t18 0 See how you're doing
  374. Leave
  375. @if response is 1 then do
  376.   @begin
  377.   @show
  378. `\`\  `0"You look like you might be able to join us.  But to do so you
  379.   must prove yourself."  `2he says.
  380.  
  381. `k  `$"I .. I'm ready."  `2you tell him.
  382.  
  383.   `0"Very well, we have someone for you to kill.  Do so, and we'll let you
  384.   join."
  385. `\`k  `%They drag a bleeding body outside... it's a Koshi man!  His wings are
  386.   torn off.
  387. `\`k
  388.   @do goto JOINB
  389.   @end
  390. @if response is 2 then do
  391. ;First level
  392.  @begin
  393.   @if `p07 > -20 then do
  394.     @begin
  395.     @show
  396. `\`\  `0"You need to work MUCH harder!!  You're so nice you might as well go
  397.   work with the Koshi.  Go hurt some people damnit!"  `2he tells you.
  398. `\`k
  399.     @do goto castle
  400.     @end
  401. ;Next level
  402.   @if `p07 > -40 then do
  403.     @begin
  404.     @show
  405. `\`\  `0"Well, you've been doing better lately.  But try getting more money
  406.   as well, we can't do our evil quests without funding!"  `2he laughs.
  407. `\`k
  408.     @do goto castle
  409.     @end
  410. ;Again up
  411.   @if `p07 > -60 then do
  412.     @begin
  413.     @do `s01 is rape
  414.      @if `v06 is 1 then `s01 is pillaging
  415.     @show
  416. `\`\  `0"I beginning to like your style a bit.  A little `s01 here, a bit of
  417.   stealing there and it's cool.  Keep it up and you'll be rising in the
  418.   ranks soon."  `2he tells you.
  419. `\`k
  420.     @do goto castle
  421.     @end
  422. ;Again ..
  423.   @if `p07 > -80 then do
  424.     @begin
  425.     @show
  426. `\`\  `0"The cult is beginning to owe a lot to you `n`0.  Be patient and
  427.   continue your deeds, soon you will rise up to our honored ranks.  Now go
  428.   do death my brother."  `2he informs you.
  429. `\`k
  430.     @do goto castle
  431.     @end
  432. ;Once more
  433.   @if `p07 > -100 then do
  434.     @begin
  435.     @show
  436. `\`\  `0"`n my friend, I have nominated you for our honor ranks.  Even now
  437.   the council is discussing your fate.  Be diligent now and continue your
  438.   strife, and soon you will find a new light."  `2the gatekeeper tells you.
  439. `\`k
  440.     @do goto castle
  441.     @end
  442. ;If they're really cool
  443.   @if `p07 < -99 then do
  444.     @begin
  445.     @show
  446. `\`\  `2The gatekeeper looks up at you and smiles.
  447.   `0"I have a surprise for you my child.  Come this way."  `2He leads you
  448.   through the giant wooden doors ...
  449. `\`k
  450.     @loadmap 707
  451.     @do map is 707
  452.     @do x is 10
  453.     @do y is 11
  454.     @end
  455.  @end
  456. @drawmap
  457. @update
  458.  
  459. @#CULTJOIN
  460. ;You win the fight
  461. @bitset `t18 0 1
  462. @show
  463. `r0`c  `r1  Joining the Cult  `r0
  464.  
  465.   `2You stand proud of your victory!  Around you in the courtyard a few
  466.   other members cheer at your triumph.  The gatekeeper comes to you.
  467.  
  468.   `0"Good show there warrior.  You may now join our ranks and fight for
  469.   the good of the cult."  `2he says.
  470.  
  471.   `0"Someday, ya might even be able to help us rid the earth of the
  472.   plague we call the Koshi."
  473. `\`k
  474. @do goto castle
  475.  
  476. @#JOINB
  477. ;Fighting to join the Dragon Tooth Cult
  478. @fight
  479. ;name
  480. Captured Koshi Warrior
  481. ;string said when you see him
  482. You prepare to take on the wounded warrior, with s&weapon ready.
  483. ;power move kill string
  484. `$"Stupid Koshi"  `2you shout.
  485. ;sex - 1 is male, 2 is female, 3 is it
  486. 3
  487. ;weapon and strength for the weapon, up to 5
  488. punches you|78
  489. kicks you in the gut|80
  490. throws you across the courtyard|91
  491. NONE|NONE
  492. NONE|NONE
  493. ;defense
  494. 32
  495. ;gold reward
  496. 0
  497. ;experience
  498. 1
  499. ;hit points
  500. 120
  501. ;if win: ref file|name or NONE
  502. DRAGON.REF|CULTJOIN
  503. ;if lose: ref file|name or NONE
  504. GAMETXT.REF|DIE
  505. ;if runs: ref file|name or NONE
  506. DRAGON.REF|CULTRUN
  507. @drawmap
  508. @update
  509.  
  510. @#CULTRUN
  511. @pauseoff
  512. @show
  513. `\`\`r0`c  `r1  RUN?  `r0
  514.  
  515.   `2The guards laugh at your cowardice.  They decide not to let you join.
  516.  
  517. `k
  518. @drawmap
  519. @update
  520.  
  521. @#TRAVEL
  522. ;Getting off the island
  523. @do moveback
  524. @busy
  525. @DO `v01 is 1
  526. @SHOW
  527. `r0`c  `r1  Looks like a Warship  `r0
  528.  
  529.   `2A man with a big sword greets you `0"Where would you like us to
  530.   drop you off?"
  531.                       
  532. @DO WRITE
  533. `x`x
  534. @CHOICE
  535. <`p07 -99 ArrisVille
  536. PortTown
  537. <`p07 -99 FlagCity
  538. Sosen Village
  539. Don't want to leave yet
  540. @if response is 1 then do
  541. ;Going to ArrisVille
  542.   @begin
  543.   @Show
  544. `\`\  `0"I don't like the prince there .. but let's go!" `2He replies.
  545. `\`k
  546.   @loadmap 444
  547.   @do map is 444
  548.   @do x is 66
  549.   @do y is 19
  550.   @DRAWMAP
  551.   @DO SAYBAR
  552.   `2Welcome to Arrisville.
  553.   @UPDATE
  554.   @CLOSESCRIPT
  555.   @end
  556. @if response is 2 then do
  557. ;Going to PortTown
  558.   @begin
  559.   @show
  560. `\`\  `0"Okay, that's a nice town to raid."
  561. `\`k
  562.   @loadmap 152
  563.   @do map is 152
  564.   @do x is 38
  565.   @do y is 2
  566.   @DRAWMAP
  567.   @DO SAYBAR
  568.   `2Welcome to PortTown.
  569.   @UPDATE
  570.   @CLOSESCRIPT
  571.   @end
  572. @if response is 3 then do
  573. ;Going to FlagCity
  574.   @begin
  575.   @show
  576. `\`\  `0"Those stupid flags, okay let's go."
  577. `\`k
  578.   @loadmap 71
  579.   @do map is 71
  580.   @do x is 38
  581.   @do y is 14
  582.   @DRAWMAP
  583.   @DO SAYBAR
  584.   `2Welcome to FlagCity.
  585.   @UPDATE
  586.   @CLOSESCRIPT
  587.   @end
  588. @if response is 4 then do
  589.   @begin
  590.   @show
  591. `\`\  `0"It's a little place, with plenty of money for us!"
  592. `\`k
  593.   @loadmap 536
  594.   @do map is 536
  595.   @do x is 40
  596.   @do y is 18
  597.   @DRAWMAP
  598.   @DO SAYBAR
  599.   `2Welcome to Sosen Village.
  600.   @UPDATE
  601.   @CLOSESCRIPT
  602.   @end
  603. @drawmap
  604. @update
  605.  
  606. @#nomore
  607.